***Replication for Experiment/Study 1 Bell et al. RAP
clear
cd "D:\Dropbox\Ballots and Bromances\CD Stata Files\Replication Materials"
use "replication-data-experiment1.dta"

tab sgtRace
tab source
tab sgtRace  source


*Table 2: Models 1 and 2
reg  dvConvict i.sgtRace##i.source  if white==1
reg dvJusti	 i.sgtRace##i.source  if white==1
 
  
eststo clear
eststo: reg  dvConvict i.sgtRace##i.source  if white==1 
eststo: reg  dvJusti i.sgtRace##i.source  if white==1 
esttab using "replication-table2.rtf", se varwidth(25) b(a3) se(4) label nobaselevels interaction(" X ") replace

clear
use "replication-data-experiment2.dta"

tab race
tab white
tab race white
tab manipcheck
*2 was correct answer
tab sgtRace newsSource

*Table 3: Models 1 and 2

eststo clear


reg  dvconvict01 	i.sgtRace##i.newsSource  if white==1 & manipcheck==2
reg dvjustified01 	i.sgtRace##i.newsSource  if white==1 & manipcheck==2
 

eststo: reg  dvconvict01 	i.sgtRace##i.newsSource  if white==1 & manipcheck==2
eststo: reg dvjustified01 	i.sgtRace##i.newsSource  if white==1 & manipcheck==2
esttab using "replication-table3.rtf", se varwidth(25) b(a3) se(4) label nobaselevels interaction(" X ") replace

